home *** CD-ROM | disk | FTP | other *** search
/ B Soft 3 / B-Soft_3_19xx_Maik__Mike_de_Side_B.d64 / t.l.o.a thief_mj (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  185 lines
  1. 10 print"[147]":print"":print:print:poke53281,8
  2. 20 print"           mr.joker presents":print:print:print
  3. 25 print"[144]       [205][205][205][205][205][205][205][205][205][205][205][205][206][206][206][206][206][206][206][206][206][206][206][206]"
  4. 27 print
  5. 30 print"[149]      [195] [178][171][179]e [204][194][205][206]e [215]f a [178][171][179][194]ef [195]"
  6. 35 print
  7. 40 print"[144]       [206][206][206][206][206][206][206][206][206][206][206][206][205][205][205][205][205][205][205][205][205][205][205][205]":print
  8. 50 print
  9. 60 print"[158]            written in 1990":print
  10. 70 print
  11. 80 print"     das erste spiel in der serie:":print
  12. 90 print"[155]         mr.jokers textgames!"
  13. 110 l1=54272:l2=54279:l3=54286
  14. 120 h1=l1+1:h2=l2+1:h3=l3+1
  15. 130 v1=l1+4:v2=l2+4:v3=l3+4
  16. 140 poke 54296,15
  17. 150 poke v1+1,9:poke v2+2,0
  18. 160 poke v2+1,36:poke v2+2,36
  19. 170 poke v3+1,18:poke v3+2,170
  20. 180 t=ti
  21. 200 poke v1,16:poke v2,32:poke v3,16
  22. 210 read s:if s=0 goto 290
  23. 220 read x1,y1,x2,y2,x3,y3
  24. 230 if x1 then poke h1,x1:poke l1,y1:poke v1,17
  25. 240 if x2 then poke h2,x2:poke l2,y2:poke v2,33
  26. 250 if x3 then poke h3,x3:poke l3,y3:poke v3,17
  27. 260 t=t+s
  28. 270 if t>ti goto 270
  29. 280 goto 200
  30. 290 forj=l1 to 54296:poke j,0:next j
  31. 295 :
  32. 300 data 15,35,00,70,66,44,00
  33. 310 data 15,00,00,66,66,0,0
  34. 320 data 15,35,000,52,66,00,000
  35. 330 data 15,00,00,70,66,00,0
  36. 340 data 15,46,00,70,33,00,000
  37. 350 data 15,46,000,66,33,35,0
  38. 360 data 15,46,000,52,33,35,00
  39. 370 data 15,00,0,00,000,0,0
  40. 400 data 15,52,00,70,33,39,
  41. 410 data 15,00,00,66,000,0,0
  42. 420 data 15,52,000,52,000,00,000
  43. 430 data 15,00,00,70,000,00,0
  44. 440 data 15,46,00,70,000,0,000
  45. 450 data 15,00,0,66,000,00,0
  46. 460 data 15,46,00,52,000,00,00
  47. 470 data 15,00,0,39,00,00,000
  48. 500 data 15,35,66,44,000,70,000
  49. 510 data 15,39,66,00,000,00,0
  50. 520 data 15,35,66,44,000,70,000
  51. 530 data 15,39,66,00,00,52,0
  52. 540 data 15,35,66,46,000,0,00
  53. 550 data 15,39,66,00,00,105,0
  54. 560 data 15,35,66,46,000,00,000
  55. 570 data 15,39,66,00,000,105,0
  56. 600 data 15,39,00,39,000,116,000
  57. 610 data 15,00,000,00,000,00,0
  58. 620 data 15,44,000,39,000,142,0
  59. 630 data 15,44,00,39,00,116,0
  60. 640 data 15,00,00,35,000,173,0
  61. 650 data 15,39,0,35,000,160,0
  62. 660 data 15,00,00,00,000,140,0
  63. 670 data 15,35,35,35,35,35,35
  64. 700 data 0
  65. 710 poke53281,4:print"[158]":print:poke53280,10
  66. 720 print"[147]":print:print"     hallo "
  67. 730 print"    [196][195][196][195][196][195][196]"
  68. 750 print"    hier spricht mr.joker.":print
  69. 760 print"    willkommen zu mein erstes":print
  70. 770 print"    werk in der serie textgames!":print
  71. 780 print"    ich hoffe ihr werdet viel":print
  72. 790 print"    freude an diesem spiel ":print
  73. 800 print"    haben,denn es hat sehr":print
  74. 810 print"    viel zeit gekostet es":print
  75. 820 print"    zu schreiben.":print:print
  76. 830 print"   (return)[158]"
  77. 840 geta$:ifa$=""then840
  78. 845 geta$:ifa$=""then845
  79. 850 print"[147]":print:print
  80. 860 print" kennst du die spielregeln?":print
  81. 870 getb$:ifb$=""then 870
  82. 875 ifb$="j"then goto1690
  83. 880 print"[147]":print:print
  84. 890 print"  die story!"
  85. 900 print" [195][195][195][195][195][195][195][195][195][195][195][195]":print
  86. 910 print"  es ist ein heisser sommertag und du":print
  87. 920 print"  arbeitest,wenn man das arbeit nennen":print
  88. 930 print"  kann.dein beruf ist naemlich dieb.":print
  89. 940 print"  du ueberfaellst passanten,knackst ":print
  90. 950 print"  autos u.s.w. an einer ecke steht":print
  91. 960 print"  ein mann mit einen umhang.der soll":print
  92. 970 print"  dein naechstes opfer sein.du ":print
  93. 980 print"  schleichst dich an und greifst in":print
  94. 990 print"  seine tasche...........":print:print
  95. 995 print"   (return)[158]"
  96. 1000 geta$:ifa$=""then1000
  97. 1010 print:print:print"  der mann merkt das.er zieht eine mg":print
  98. 1020 print"  und sagt:sehr gut,ein dieb.bist du ":print
  99. 1030 print"  du ein profi? du antwortest mit:ja!":print
  100. 1040 print"  das trifft sich gut.darf ich mich ":print
  101. 1050 print"  vorstellen? >tornando brutalos<":print
  102. 1060 print"  ich bin gangsterboss! ":print
  103. 1070 print"  dir zittern die knie und du sagst:":print
  104. 1080 print"  bitte toete mich nicht!ich mach alles":print
  105. 1090 print"  tornando antwortet:na gut!beschaffe":print
  106. 1100 print"  mir 60.000$ sonst bringen dich meine":print
  107. 1110 print"  maenner um.sie werden dich beobachten!":print
  108. 1120 print"   (return)[158]"
  109. 1130 geta$:ifa$=""then1130
  110. 1140 print
  111. 1150 print"  dann sagt er:wenn du das geld hast,":print
  112. 1160 print"  dann komm in mein hauptqartier in der":print
  113. 1170 print"  bakerstreet!und wage es nicht,mir die":print
  114. 1180 print"  bullen auf den hals zu hetzen,sonst..":print
  115. 1190 print"  ...................":print
  116. 1200 print"  weiter redet er nicht.er lacht nur":print
  117. 1210 print"  dann biegt er in eine dunkle strasse":print
  118. 1220 print"  ein.die bakerstreet!":print
  119. 1230 print"  du hast angst um dein leben und ":print
  120. 1240 print"  deshalb beschliesst du das geld zu":print
  121. 1250 print"  besorgen.":print
  122. 1260 print"   (return)[158]"
  123. 1270 geta$:ifa$=""then1270
  124. 1280 print"[147]":poke53280,0:poke53281,11:print"[155]":print:print
  125. 1290 print"  die tastatur!"
  126. 1300 print"  ==============":print
  127. 1310 print"                        "
  128. 1320 print"          p             "
  129. 1330 print"          [194]             "
  130. 1340 print"        a[195][215][195]s           "
  131. 1350 print"          [194]             "
  132. 1360 print"          l             ":print
  133. 1370 print"  p=ein schritt hoch    ":print
  134. 1380 print"  l=ein schritt runter  ":print
  135. 1390 print"  a=ein schritt link    ":print
  136. 1400 print"  s=ein schritt rechts  ":print
  137. 1410 print:print"  h=hilfe(uebersicht) ":print
  138. 1420 print:print:print"   (return)[155]"
  139. 1430 geta$:ifa$=""then1430
  140. 1440 print"[147]":print:print
  141. 1450 print"  die karte!"
  142. 1460 print"  [184][184][184][184][184][184][184][184][184][184]":print
  143. 1470 print"  zeichen        bedeutung"
  144. 1480 print"  -----------------------------------":print
  145. 1490 print"[144]  s[146]            start":print
  146. 1500 print"[144]  e[146]            hauptqartier":print
  147. 1510 print"  w[146]            waffenladen":print
  148. 1520 print"  [169][146]"
  149. 1530 print"  b[146]            bank":print
  150. 1540 print"[150]  j            juveliergeschaeft":print
  151. 1550 print"[159]  [216]            passanten":print
  152. 1555 geta$:ifa$=""then1555
  153. 1560 print"[150]  [215]            autos":print
  154. 1570 print"[158]  [218]            automaten":print
  155. 1580 print"  a            alkoholladen":print
  156. 1590 print"[156]  $            an & verkauf":print
  157. 1600 print"  ?            risikospiel":print
  158. 1610 print"[144]  .....        deine schritte":print:print
  159. 1620 print"   (return)"
  160. 1630 geta$:ifa$=""then1630
  161. 1640 print"[147]":print:print
  162. 1650 print"  so! das waren die spielregeln!":print
  163. 1660 print"  moechtest du sie noch einmal sehen?"
  164. 1670 geta$:ifa$=""then1670
  165. 1680 ifa$="j"then print"[158]":goto880
  166. 1690 print"[147]":print
  167. 1700 print"  bevor das spiel anfaengt moechte ich":print
  168. 1710 print"  noch einiges loswerden:":print
  169. 1720 print"  ich gruesse: alfpower,the c.c.s."
  170. 1730 print"               dr.roll,retortenbaby"
  171. 1740 print"               giana-sisters,badsven"
  172. 1750 print"               doc.buntspecht,k.w."
  173. 1760 print"               mr.playboy.........":print:print
  174. 1770 print"  musik : mr.joker":print
  175. 1780 print"  grafik: mr.joker":print
  176. 1790 print"  story : mr.joker":print
  177. 1800 print:print"   (return)"
  178. 1810 geta$:ifa$=""then1810
  179. 10000 print"[147]":poke53281,0:print"[144]"
  180. 10010 print"load dieb loader ,8,1":print:print:print:print:print"run"
  181. 10020 print"   (return) nach laden return[144]"
  182. 10025 poke1148,34:poke1160,34
  183. 10030 print""
  184. 10040 new
  185.